[超高分悬赏]——VB远程传值（采乃后追加100分！）

来源：百度知道 编辑：UC知道 时间：2024/05/27 20:06:42
比如，得到了i的值 = "123456"，但是在别人的电脑上。现在要求远程传送这个值，不管用什么方法，如通过电子邮件等。或者把这个值写下来，然后传文件也可以。只要得到这个值的就行！！

申明：绝对不是非法用途。求大家回答。注意，不要只贴代码，最好有源码文件。采乃为正确答案之后追加100分！
3楼4楼5楼的居然抄1楼的，抄的一模一样。浪费我时间……

我不需要绕防火墙。

办法1

这需要你确定双方的IP地址，并使得双方同时在线。i就是你要发送的消息。

=====对方机器上的发送程序=====

'先插入一个winsock控件。

Private Sub Form1_Load()??

'设置网络地址

Winsock1.LocalPort=1001

Winsock1.RemoteHost="（你的IP地址）"

Winsock1.RemotePort=2001

End Sub

Private Sub Command1_Click()??

'发送用户输入的内容

Winsock1.SendData i

End Sub

=====你的机器上的接收程序====

Private Sub Form1_Load()??

'设置网络地址

Winsock1.LocalPort=1001

Winsock1.RemoteHost="（对方的IP地址）"

Winsock1.RemotePort=2001

Private Sub Winsock1_DataArrival(Byval bytesTotal As Long)?

Dim rec As String

'接收对方数据并在文本框内显示

Winsock1.GetData rec, vb String

Text2.Text=rec

End Sub

办法2

调用Outlook控件发送email，这会导致安全警报，不好用。

可以通过远程访问数据库实现
如UNIX操作系统的机器上有一数据库，类型是Informix。
VB6可以